home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / biorythm.src < prev    next >
Text File  |  1990-05-25  |  2KB  |  40 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ Biorythm program by Mr. B. Scott "Scotty" Thompson (213) 539-3611 /-0397.
  3. DIR
  4.   BIO @ main program; just run it.  Default input is current date.
  5.     \<< RCLF 6 FIX CLLCD ERASE "Enter Beginning Date\010   as MM.DDYYYY"
  6.       "" INPUT DUP
  7.       IF "" ==
  8.       THEN DROP DATE \->STR
  9.       END "Enter Ending Date\010   as MM.DDYYYY" "" INPUT DUP
  10.       IF "" ==
  11.       THEN DROP DATE \->STR
  12.       END OBJ\-> SWAP OBJ\-> SWAP DUP2
  13.       IFERR DDAYS
  14.       THEN 4 DROPN 0 0 0
  15.       END ABS 0 0 0 \-> FLG DB DE NOD PC EC IC
  16.       \<< NOD 23 / FP 23 * 'PC' STO NOD 28 / FP 28 * 'EC' STO NOD 33 / FP 33
  17. * 'IC' STO DEG { # 0h # 0h } PVIEW 0 360 XRNG -1.5 1.5 YRNG FUNCTION 'SIN(X)'
  18. STEQ DRAW (0,0) (360,0) LINE (0,1.1) (360,1.1) LINE (0,-1.1) (360,-1.1) LINE
  19. (0,0) (90,0) 90 11.5 PC - 11.5 / R\->C DUP ROT LINE DUP ROT LINE (180,0) 180
  20. 14 EC - 14 / R\->C DUP ROT LINE DUP ROT LINE (270,0) 270 16.5 IC - 16.5 /
  21. R\->C DUP ROT LINE DUP ROT LINE (360,0) LINE PICT PICT (0,1.02381)
  22. (360,-1.02381) SUB NEG (0,1.02381) SWAP REPL 1 FIX PICT "P:" PC \->STR + 1
  23. \->GROB DUP SIZE DROP 2 / # 0h 2 \->LIST PX\->C RE NEG 90 + -1.3 R\->C SWAP
  24. GXOR PICT "E:" EC + 1 \->GROB DUP SIZE DROP 2 / # 0h 2 \->LIST PX\->C RE NEG
  25. 180 + -1.3 R\->C SWAP GXOR PICT "I:" IC + \->STR 1 \->GROB DUP SIZE DROP 2 /
  26. # 0h 2 \->LIST PX\->C RE NEG 270 + -1.3 R\->C SWAP GXOR PICT DB D\->STR "-"
  27. + DE D\->STR + " \GD " + STD NOD \->STR + 1 \->GROB DUP SIZE DROP 2 / # 0h 2
  28. \->LIST PX\->C RE NEG 180 + 1.5 R\->C SWAP GXOR FLG STOF 0 WAIT DROP
  29.       \>>
  30.     \>>
  31.   DROT
  32.     \<< 1000000 * IP 100000000 +
  33.     \>>
  34.   D\->STR
  35.     \<< DROT \->STR DUP 2 3 SUB "/" + SWAP DUP 4 5 SUB "/" + SWAP 6 9 SUB + +
  36.     \>>
  37.   EQ 'SIN(X)'
  38.   PPAR { (0,-1.5) (360,1.5) X 0 (0,0) FUNCTION Y }
  39. END
  40.